(rmail-resend): Preserve point around expand-mail-aliases.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 2a8713f49250d46eb668dcac023ad55cfc676d55..ec86f4682ed0feb230a477e747a99ba02ab9e81f 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -2064,7 +2064,8 @@ typically for purposes of moderating a list."
                               address
                             (mapconcat 'identity address ",\n\t"))
                    "\n")
-           (expand-mail-aliases before (point)))
+           (save-excursion
+             (expand-mail-aliases before (point))))
          ;;>> Set up comment, if any.
          (if (and (sequencep comment) (not (zerop (length comment))))
              (let ((before (point))